unit posinstall_u;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  Tposinstall_f = class(TForm)
    mmresultado: TMemo;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  posinstall_f: Tposinstall_f;

implementation

{$R *.dfm}

procedure Tposinstall_f.FormActivate(Sender: TObject);
begin
   ModalResult := mrOk;
   Close;
end;

procedure Tposinstall_f.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   Application.Terminate;
end;

end.

